home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Utilities / Text and Speech / Alpha.5.81 / Tcl / SystemCode / thinkRef.tcl < prev    next >
Text File  |  1994-06-13  |  1KB  |  58 lines
  1. #================================================================================
  2. # THINK Ref
  3. #================================================================================
  4.  
  5.  
  6. set lastTrap {}
  7.  
  8. proc insertTrapTemplate {} {
  9.     global lastTrap
  10.  
  11.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  12.     set text [getSelect]
  13.     if {![string length $text]} {
  14.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  15.     } else {
  16.         deleteText [getPos] [selEnd]
  17.     }
  18.     set lastTrap $text
  19.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  20.     regexp {“.*”} $res one
  21.     insertText [string trim $one {“”}]
  22. }
  23.  
  24. proc displayTrapTemplate {} {
  25.     global lastTrap
  26.  
  27.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  28.     set text {}
  29.     catch {set text [getSelect]}
  30.     if {![string length $text]} {
  31.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  32.     }
  33.     set lastTrap $text
  34.  
  35.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  36.     regexp {“.*”} $res one
  37.     alertnote [string trim $one {“”}]
  38. }
  39.  
  40. proc lookupTrap {} {
  41.     global lastTrap
  42.  
  43.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  44.     set text {}
  45.     catch {set text [getSelect]}
  46.     if {![string length $text]} {
  47.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  48.     }
  49.     set lastTrap $text
  50.     AEBuild -q {'DanR'} DanR {REF } "----" "“$text”"
  51. }
  52.  
  53. proc gotoReference {} {
  54.     catch {switchTo [checkRunning ThinkReference DanR referencePath]}
  55. }
  56.  
  57.  
  58.